www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admindown\D_admin_zhuanti.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=inc_lanmu_bl.asp--> <% AJAXshowLoader() %> <style type="text/css"> <!-- .STYLE4 { color: #FFFFFF; font-weight: bold; } --> </style> <% biao="[ND_down_Special]" sys_content_type=trim(request("sys_content_type")) set rs44g=server.CreateObject("adodb.recordset") rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1 if find_dataw(lanmu_taba,rs44g("id"),5)<>"1" and qx_if_max=0 then response.redirect "../D_suodinguser.asp" end if %> <br /> <div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px"> <% if sys_content_type="" then %> <script language="javascript"> alert("url参数sys_content_type不能为空"); </script> <% response.end end if %> <script language="javascript"> function delact(id){ if (confirm("确认删除?")==1){ self.location="D_del_zhuanti.asp?id="+id+"&sys_content_type=<%=sys_content_type%>"; } } </script> <br /> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="8%" height="27" align="center" class="adminth"><span class="STYLE4">id</span></td> <td width="7%" height="27" align="center" class="adminth"><span class="STYLE4">顺序号</span></td> <td width="48%" align="center" class="adminth"><span class="STYLE4">专题名称</span></td> <td width="20%" align="center" class="adminth"><span class="STYLE4">操作</span></td> <td width="17%" align="center" class="adminth"><span class="STYLE4">是否外部频道</span></td> </tr> <% CurrentPage=replacebadchar(request("page")) if CurrentPage="" then CurrentPage=1 else if not IsNumeric(CurrentPage) then CurrentPage=1 else if int(CurrentPage)<=0 then CurrentPage=1 else CurrentPage=replaceBadchar(request("page")) end if end if end if maxperpage=15 aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/") fileNamexx = aryxx(ubound(aryxx)) strFileName=fileNamexx&"?classid="&request("classid")&"&isshenhed="&request("isshenhed")&"&iszhuanti="&request("iszhuanti")&"&keyword="&trim(request("keyword"))&"&sys_content_type="&sys_content_type&"&qrr="&request("qrr") set Rs=server.CreateObject("adodb.recordset") sql="select * from "&biao&" where sys_content_type='"&sys_content_type&"' order by clng(orders) asc" Rs.open sql,conn,1,1 if not Rs.eof then Rs.pagesize=MaxPerpage totalnumber=Rs.recordcount if totalnumber mod maxperpage=0 then MaxPage= totalnumber \ MaxPerpage else MaxPage= totalnumber \ MaxPerpage+1 end if if int(CurrentPage)>int(MaxPage) then CurrentPage=MaxPage else CurrentPage=CurrentPage end if Rs.absolutepage=CurrentPage for ni=1 to MaxPerpage if Rs.eof then exit for %> <tr bgcolor="#EDF8FE"> <td width="8%" height="27" align="center"><%=rs("id")%></td> <td width="7%" height="27" align="center"><%=rs("orders")%></td> <td width="48%" align="center"><%=left(rs("Specialname"),44)%></td> <td width="20%" align="center"> <a href="D_edit_zhuanti.asp?id=<%=rs("id")%>&sys_content_type=<%=sys_content_type%>">编辑</a> <a href=# onclick="delact('<%=rs("id")%>');">删除</a> </td> <td width="17%" align="center"> <%if rs("is_link_class")="1" then%> <font color="#FF0000">外部连接</font> <%else%> 内部连接 <%end if%> </td> </tr> <% Rs.movenext next else %> <tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr> <%end if Rs.close set Rs=nothing %> <tr> <td colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_list'); AJAXfade(1,'l_lists'); </script> <% AJAXcloseLoader() %>